SystemVision IMMEDIATE ACTION BULLETIN PTF W3063979
---------------------------------------------------
DATE: 2004/05/21
PRODUCT: SystemVision
RELEASE: C306M1D
PREREQUISITES: W3063968
COREQUISITES: None
SUPERSEDES: None
SUBJECT: Correction of Subordinate levels treat as impacted items err.
DESCRIPTION:
When the IMPACT product is used, if any data names contain any of the
defined search character strings (are impacted items) and these data
names have subordinate levels of data, all subordinates (including
88-level condition names) should be considered as impacted items too
and included in the general list of impacted items.
Parents must be provided for these subordinates (including 88-level)
like for real impacted items.
SOLUTION: PTF W3063979 has been written to correct this problem. This
correction is applicable to all users running the SystemVision release
C306M1D tape created before 2004/05/21.
PTF W3063979 should be applied to the SystemVision LOADLIB after
installation has been completed.
PTF W3063979:
* C306M1D
NAME PM@ATT PM@ATT 2004/05/21 C306M1D WO=3979 I0008230
IDRDATA W3063979
VER 034070 F0F9,61F1,F361,F0F2 VERIFY DATE
VER 03407C 0085,216F VERIFY TIME
VER 0009CE 4040,4040 PATCH AREA
VER 0009D2 4040,4040,4040 PATCH AREA
VER 0009D8 4040 PATCH AREA
VER 0009DA 4040,4040 PATCH AREA
VER 0009DE 4040,4040 PATCH AREA
VER 0009E2 4040,4040 PATCH AREA
VER 0009E6 4040 PATCH AREA
VER 02D54C 92C4,78EE PATCH AREA
VER 032C4C 4780,50E2 PATCH AREA
VER 032C32 9540,8668 PATCH AREA
VER 032C36 4780,508E PATCH AREA
VER 032C3A 95F8,703F PATCH AREA
VER 032C3E 4770,508E PATCH AREA
VER 032C42 4560,4A34 PATCH AREA
VER 0330DE 95F8,703F PATCH AREA
VER 0330E2 4780,5538 PATCH AREA
CHECKSUM 825295D7
REP 0009CE 92C4,78EE
REP 0009D2 D205,78E5,90ED
REP 0009D8 07FE
REP 0009DA 4780,50E2
REP 0009DE 95F8,703F
REP 0009E2 4780,50E2
REP 0009E6 07FE
REP 02D54C 4DE0,79CE
REP 032C4C 4DE0,79DA
REP 032C32 0707,0707
REP 032C36 0707,0707
REP 032C3A 0707,0707
REP 032C3E 0707,0707
REP 032C42 0707,0707
REP 0330DE 0707,0707
REP 0330E2 0707,0707
CHECKSUM 0E2487C3
* C306M1D
NAME PM@LIS PM@LIS 2004/05/21 C306M1D WO=3979 I0008230
IDRDATA W3063979
VER 0B3AD8 F0F7,61F0,F961,F0F3 VERIFY DATE
VER 0B3AE4 0080,512F VERIFY TIME
VER 0B03AE 5820,D068 PATCH AREA
VER 0B03B2 95F1,2056 PATCH AREA
VER 0B03B6 4770,51F4 PATCH AREA
VER 0B03BA D204,7DE0 PATCH AREA
VER 0B03BE 4E8D,D200 PATCH AREA
VER 0B03C2 7DE5,81DA PATCH AREA
CHECKSUM D624A816
REP 0B03AE 95F8,7457 PATCH AREA
REP 0B03B2 4780,54C4 PATCH AREA
REP 0B03B6 0707,0707 PATCH AREA
REP 0B03BA 5820,D068 PATCH AREA
REP 0B03BE 95F1,2056 PATCH AREA
REP 0B03C2 4770,51F4 PATCH AREA
CHECKSUM C2FB8F5C
---------------------------------------------------------------------
PTF C306.3979B should be applied to the SystemVision PMPRMLIB after
installation has been completed.
PTF C306.3979B should be applied by making the following changes to the
member SVIMP@ in your &PREFIX.&vers.PMPRMLIB library.
Four additional steps were added in oplist SVIMP@ between
steps IMPINIA3 and IMPINI3A
Was:
IMPINIA IMPINIA3 3. SCAN LENGTH ITEM DNLIST FOR STLIST ITEM
IMPINIA IMPINI3A 3A. REMOVE VALUE ITEMS FROM IMPACT DNLIST
Change to:
IMPINIA IMPINIA3 3. SCAN LENGTH ITEM DNLIST FOR STLIST ITEM
IMPINIA IMPINIAH 3H. CREATE ATL FOR DATAS SELECTED IN DNL
IMPINIA IMPINIAJ 3J. EXTRACT ATLIST REC-7 RECORD
IMPINIA IMPINIAK 3K. RECATALOG XINIA9 AS A DNLIST
IMPINIA IMPINIAL 3L. DROP REDEFINEE RECORD
IMPINIA IMPINI3A 3A. REMOVE VALUE ITEMS FROM IMPACT DNLIST
Was:
IMPINIA3 @SV.SCAN MEMBER=XINIA2,SOURCE=PMLIB
IMPINIA3 @SV TITLE='INITIAL IMPCT ITEMS USING THE SCAN TABLE'
IMPINIA3 @SV SCAN=(31,60),KWIC,XREF=NO,REPOSITORY=NO,PPROC=NO
IMPINIA3 @SV STLIST=IMPSCAN,DCHAR=|
IMPINIA3 *SV UCODE=(29, ) .3968
IMPINIA3 @SV ERROR=GO,NOPRINT
IMPINIA3 @SV CATAL=(XINIA3,KWIC)
IMPINIA3 *
IMPINIA3 * RUN03: INITIAL IMPACT ITEMS FOUND BY USING THE SCAN TABLE.
IMPINIA3 * IMPINIA3
IMPINI3A @SV.LIST DNLIST=XINIA3
IMPINI3A @SV TITLE='REMOVE VALUE ITEMS FROM IMPACT DNLIST'
IMPINI3A @SV SELECT=(7,U,V)
*MPINI3A @SV SORT=(MEMB,IDENT,DNAME),DUP=DROP,DLOC=79 WO:2805
IMPINI3A @SV SORT=(MEMB,IDENT,DNAME,NYM),DUP=DROP,DLOC=79 WO:2878
IMPINI3A @SV ERROR=GO,NOPRINT
IMPINI3A @SV CATAL=XINI3A
IMPINI3A *
IMPINI3A * RUN03A: THE VALUE ITEMS MUST BE TEMPORARILY REMOVED FROM
IMPINI3A * IMPINI3A THE GROWING IMPACT DNLIST. THEY WILL BE RETURNED
IMPINI3A * AFTER THE RUN WHICH DROPS DUPS (BELOW).
IMPINI3A * THE DUP=DROP AND THE KEYWORD NYM IN THE SORT
IMPINI3A * OPTION CAUSES MULTIPLE DUPLICATE REDEFS WITH
IMPINI3A * THE SAME NAME TO BE DROPPED.
IMPINI3A *
Change to:
IMPINIA3 @SV.SCAN MEMBER=XINIA2,SOURCE=PMLIB
IMPINIA3 @SV TITLE='INITIAL IMPCT ITEMS USING THE SCAN TABLE'
IMPINIA3 @SV SCAN=(31,60),KWIC,XREF=NO,REPOSITORY=NO,PPROC=NO
IMPINIA3 @SV STLIST=IMPSCAN,DCHAR=|
IMPINIA3 *SV UCODE=(29, ) .3968
IMPINIA3 @SV ERROR=GO,NOPRINT
IMPINIA3 @SV CATAL=(XINIA3,KWIC)
IMPINIA3 *
IMPINIA3 * RUN03: INITIAL IMPACT ITEMS FOUND BY USING THE SCAN TABLE.
IMPINIA3 * IMPINIA3
IMPINIAH @SV.ATT MLI=&APP.P@MLI
IMPINIAH @SV TITLE='SUBORDINATE DATA ATTRIBUTES'
IMPINIAH @SV DNLIST=XINIA3,88LEV=YES ,LANG=COBOL
IMPINIAH @SV ERROR=GO,KWIC=GTL,DLOC=NO,XRMEMBER=COPY
IMPINIAH @SV CATAL=XINIA9
IMPINIAH *
IMPINIAH * RUN01: DATA DEFINITION ATLIST IS CREATED FOR DATA NAMES
IMPINIAH *IMPINIAH SELECTED FROM DNLIST=XINIA3.
IMPINIAH *
IMPINIAH * THE XRMEMBER=COPY OPTION CAUSES THE COPYLIB MEMBER
IMPINIAH * NAME TO BE PLACED IN THE MEMBER NAME FIELD.
IMPINIAJ @SV.LIST LIST=XINIA9,SEL=(8,E,7)
IMPINIAJ @SV TITLE='EXTRACT ATLIST REC-7 RECORDS'
IMPINIAJ @SV UCODE=(72, ),DLOC=NO
IMPINIAJ @SV ERROR=GO ,NOPRINT
IMPINIAJ @SV CATAL=XINI9A
IMPINIAJ *
IMPINIAJ * RUN02: CREATE LIST OF REDEFINED ITEMS ONLY. THIS LIST IS
IMPINIAJ *IMPINIAJ NEEDED IN ORDER TO DROP SUCH ITEMS FROM XINIA9
IMPINIAJ * IN RUN IMPINIAH. DOING SO PREVENTS DATANAMES THAT
IMPINIAJ * ARE REDEFINED FROM APPEARING IN DNLIST XINIA9
IMPINIAJ * REDEFINED DNAMES ARE NOT DROPPED- ONLY THE RECORDS
IMPINIAJ * OF THEIR BEING REDEFINED.
*
IMPINIAK @SV.LIST ATLIST=XINIA9
IMPINIAK @SV TITLE='RECATALOG XINIA9 AS A DNLIST'
IMPINIAK @SV UGROUP=LENGTH,DLOC=NO,IMPACT
IMPINIAK @SV ERROR=GO,NOPRINT
IMPINIAK @SV CATAL=(XINIA9,DNLIST)
IMPINIAK *
IMPINIAK * RUN03: RECATALOG ATLIST=XINIA9 CREATED ABOVE, AS DNLIST
IMPINIAK *IMPINIAK XINIA9
IMPINIAK *
IMPINIAL @SV.LIST DNLIST=(XINIA9,XINI9A)
IMPINIAL @SV TITLE='DROP REDEFINEE RECORDS'
IMPINIAL @SV SORT=(MEMBER,DNAME,XREF),MATCH=1U
IMPINIAL @SV DLOC=NO,LLOC=NO
IMPINIAL @SV ERROR=GO,NOPRINT
IMPINIAL @SV CATAL=XINIA3
IMPINIAL *
IMPINIAL * RUN04: THE LENGTH AND FORMAT CODE OF EACH DATA ELEMENT
IMPINIAL *IMPINIAL ARE REPORTED IN POSITIONS 2-7 OF THE LIST.
IMPINIAL * NOTE THIS IS AN UPDATE XINIA3 CREATED EARLIER.
IMPINIAL * XINIA3 NOW CONTAINS ALL IMPACT ITEMS WITH
IMPINIAL * THEIR SUBORDINATE ELEMENTS, EVEN INCLUDING
IMPINIAL * THEIR 88-LEVELS.
IMPINI3A @SV.LIST DNLIST=XINIA3
IMPINI3A @SV TITLE='REMOVE VALUE ITEMS FROM IMPACT DNLIST'
IMPINI3A @SV SELECT=(7,U,V)
*MPINI3A @SV SORT=(MEMB,IDENT,DNAME),DUP=DROP,DLOC=79 WO:2805
IMPINI3A @SV SORT=(MEMB,IDENT,DNAME,NYM),DUP=DROP,DLOC=79 WO:2878
IMPINI3A @SV ERROR=GO,NOPRINT
IMPINI3A @SV CATAL=XINI3A
IMPINI3A *
IMPINI3A * RUN03A: THE VALUE ITEMS MUST BE TEMPORARILY REMOVED FROM
IMPINI3A * IMPINI3A THE GROWING IMPACT DNLIST. THEY WILL BE RETURNED
IMPINI3A * AFTER THE RUN WHICH DROPS DUPS (BELOW).
IMPINI3A * THE DUP=DROP AND THE KEYWORD NYM IN THE SORT
IMPINI3A * OPTION CAUSES MULTIPLE DUPLICATE REDEFS WITH
IMPINI3A * THE SAME NAME TO BE DROPPED.
IMPINI3A *
Was:
@PRODUCT 06225959 27655360
Change to:
@PRODUCT 27832831 49118504